
Partial Class Admin_frmFeedback
    Inherits System.Web.UI.Page
    Dim _bo As New Bo()
    Dim _FeedbackVo As New FeedbackVo
    Dim _UserId As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        _UserId = Session("UserId")
        If _UserId = "" Then
            Response.Redirect("frmLogin.aspx")
        End If
        lblUserId.Text = _UserId
        lblDate.Text = System.DateTime.Now.ToShortDateString
    End Sub

    Protected Sub btnSkip_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSkip.Click
        Session("UserId") = _UserId
        Response.Redirect("frmDataList.aspx")
    End Sub

    Protected Sub btnPost_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPost.Click
        _FeedbackVo.UserId = _UserId
        _FeedbackVo.FeedDate = System.DateTime.Now.ToShortDateString
        _FeedbackVo.Feedback = txtFeedback.Text
        _bo.insertFeedback(_FeedbackVo)
        Response.Redirect("frmShowFeeds.aspx")
    End Sub
End Class
